home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / CON-03A.ZIP / EDITOR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-23  |  2.9 KB  |  109 lines
  1. unit editor;
  2.  
  3. interface
  4.  
  5. uses crt,dos,ansi_drv;
  6.  
  7. procedure write_picture(pic : string);
  8.  
  9. implementation
  10.  
  11. const
  12.   IMAGE1_WIDTH=80;
  13.   IMAGE1_DEPTH=100;
  14.   IMAGE1_LENGTH=370;
  15.   IMAGE1 : array [1..370] of Char = (
  16.      #1,#16,'─','─','┤', #9,#17,'▌','K','r','y','s','t','e','l',' ','U',
  17.     's','e','r',' ','E','d','i','t','o','r',' ','v','0','.','0','1','ß',
  18.     '▐', #1,#16,'├',#26,'/','─',#24,' ','┌',#26,'K','─','┐',#24,' ','│',
  19.     ' ', #3,'H','a','n','d','l','e',#25, #6,#15,':',#25,'<', #1,'│',#24,
  20.     ' ','│',' ', #3,'P','a','s','s','w','o','r','d',#25, #4,#15,':',#25,
  21.     '<', #1,'│',#24,' ','│',' ', #3,'P','h','o','n','e',' ','#',#25, #5,
  22.     #15,':',#25,'<', #1,'│',#24,' ','│',' ', #3,'A','c','c','e','s','s',
  23.     ' ','L','e','v','e','l',' ',#15,':',#25,'<', #1,'│',#24,' ','└',#26,
  24.     'K','─','┘',#24,#24,#24,#24,' ','┌','─','│', #9,#17,'▌','K','r','y',
  25.     's','t','e','l',' ','U','s','e','r',' ','E','d','i','t','o','r',' ',
  26.     'C','o','m','m','a','n','d','s','▐', #1,#16,'├',#26,'*','─','┐',#24,
  27.     ' ','│',#25,'K','│',#24,' ','│',#25,'K','│',#24,' ','│',#25,'K','│',
  28.     #24,' ','└',#26,'K','─','┘',#24,#24,#25, #3, #7,'K','r','y','s','t',
  29.     'e','l',' ','U','s','e','r',' ','E','d','i','t','o','r',' ','(','c',
  30.     ')','1','9','9','5',' ','K','r','y','s','t','a','l','i','n','e',' ',
  31.     'P','r','o','d','u','c','t','s',' ','&',' ','G','r','o','o','v','e',
  32.     'n',' ','D','e','s','i','g','n','s','(','t','m',')','.',#24,#24,#24,
  33.     #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
  34.     #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
  35.     #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
  36.     #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,
  37.     #24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24,#24);
  38.  
  39. type screentype = array [0..3999] of byte;
  40.  
  41. var
  42.   ScreenAddr : ScreenType absolute $B800:$0000;
  43.  
  44. procedure UNCRUNCH (var Addr1,Addr2; BlkLen:Integer);
  45. begin
  46.   inline (
  47.     $1E/
  48.     $C5/$B6/ADDR1/
  49.     $C4/$BE/ADDR2/
  50.     $8B/$8E/BLKLEN/
  51.     $E3/$5B/
  52.     $8B/$D7/
  53.     $33/$C0/
  54.     $FC/
  55.     $AC/
  56.     $3C/$20/
  57.     $72/$05/
  58.     $AB/
  59.     $E2/$F8/
  60.     $EB/$4C/
  61.     $3C/$10/
  62.     $73/$07/
  63.     $80/$E4/$F0/
  64.     $0A/$E0/
  65.     $EB/$F1/
  66.     $3C/$18/
  67.     $74/$13/
  68.     $73/$19/
  69.     $2C/$10/
  70.     $02/$C0/
  71.     $02/$C0/
  72.     $02/$C0/
  73.     $02/$C0/
  74.     $80/$E4/$8F/
  75.     $0A/$E0/
  76.     $EB/$DA/
  77.     $81/$C2/$A0/$00/
  78.     $8B/$FA/
  79.     $EB/$D2/
  80.     $3C/$1B/
  81.     $72/$07/
  82.     $75/$CC/
  83.     $80/$F4/$80/
  84.     $EB/$C7/
  85.     $3C/$19/
  86.     $8B/$D9/
  87.     $AC/
  88.     $8A/$C8/
  89.     $B0/$20/
  90.     $74/$02/
  91.     $AC/
  92.     $4B/
  93.     $32/$ED/
  94.     $41/
  95.     $F3/$AB/
  96.     $8B/$CB/
  97.     $49/
  98.     $E0/$AA/
  99.     $1F);
  100. end;
  101.  
  102. procedure write_picture(pic : string);
  103. begin
  104.   if pic= 'editor' then UnCrunch (IMAGE1,ScreenAddr[ (1 * 2) + (1 * 160) -162],IMAGE1_LENGTH);
  105. end;
  106.  
  107. begin
  108. end.
  109.